﻿Imports Microsoft.Xna.Framework
Namespace Test
	Public Class GameObject
		Dim _position As Vector2?
		Property Position As Vector2?
			Get
				If _position.HasValue Then Return _position Else Return Nothing
			End Get
			Set(value As Vector2?)
				If value.HasValue Then Me._position = value
			End Set
		End Property

		Dim _rotation As Single?
		Property Rotation As Single?

			Get
				If _rotation.HasValue Then Return _rotation Else Return Nothing
			End Get
			Set(value As Single?)
				If value.HasValue Then _rotation = value Mod MathHelper.TwoPi
			End Set
		End Property

		Property Name As String

		Public Sub New(Name As String, Optional Position As Vector2? = Nothing, Optional Rotation As Single? = Nothing)
			Me.Name = Name : Me.Position = Position : Me.Rotation = Rotation
		End Sub

	End Class
End Namespace

